home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / Asymptote Demo / Examples / Demos / 10) VY CMA / Demo10 next >
Encoding:
Text File  |  1994-05-07  |  2.4 KB  |  104 lines  |  [TEXT/DWat]
  1. % Asymptote Demo #4
  2.  
  3. % Read several data files and plot each 
  4. % in a stacked column of graphs
  5.  
  6. fontname    times
  7. scale .75                    % Make labels, ticks and points a bit smaller
  8.  
  9. graphunits in
  10. graphframe 2 5 -1 1.4    % Specify the enclosure for the set of panes
  11. fullscreen yes
  12. showpage
  13.  
  14. % Now, read each data file and plot it:
  15.  
  16. % ----------------------
  17. datafile vy1cm.100m
  18. newGraphlocation "H\\d2\\uO  6\\d16\\u\sÆ5\\d23"
  19. readcolumn x 1
  20. readcolumn y 2
  21. closewindow vy1cm.100m
  22. graphlimits -9 45 0 0
  23. graphticks 5 10 1000 1000
  24. drawmybox parallel perpendicular
  25. plothistogram
  26. % ----------------------
  27. datafile vy.321GHz_TMB
  28. newGraphlocation "H\\d2\\uO  10\\d29\\u\sÆ9\\d36"
  29. readcolumn x 1
  30. readcolumn y 2
  31. closewindow vy.321GHz_TMB
  32. rpn <y 44.565 * >y
  33. graphlimits -9 45 0 0
  34. graphticks 5 10 50 50
  35. drawmybox nolabels perpendicular
  36. plothistogram
  37. % ----------------------
  38. datafile vy1mm.bro
  39. newGraphlocation "H\\d2\\uO  \sn\\d2\\u 5\\d50\\u\sÆ6\\d43"
  40. readcolumn x 1
  41. readcolumn y 2
  42. closewindow vy1mm.bro
  43. rpn <y 6.7 * >y
  44. graphlimits -9 45 0 0
  45. graphticks 5 10 .5 .5
  46. drawmybox nolabels perpendicular
  47. plothistogram
  48. % ----------------------
  49. datafile vy3mm.nar
  50. newGraphlocation "H\\d2\\uO  \sn\\d2\\u 4\\d40\\u\sÆ5\\d33"
  51. readcolumn x 1
  52. readcolumn y 2
  53. closewindow vy3mm.nar
  54. rpn <y 4.5 * >y
  55. graphlimits -9 45 -2.7 18.45
  56. graphticks 5 10 5 5
  57. drawmybox nolabels perpendicular
  58. plothistogram
  59. % ----------------------
  60. datafile vy.30siov0_jy
  61. newGraphlocation "\\u30\\dSiO  v=0 J=1\sÆ0"
  62. readcolumn x 1
  63. readcolumn y 2
  64. closewindow vy.30siov0_jy
  65. graphlimits -9 45 0 0
  66. graphticks 5 10 10 10
  67. drawmybox nolabels perpendicular
  68. plothistogram
  69. % ----------------------
  70. datafile vy.29siov0_jy
  71. newGraphlocation "\\u29\\dSiO  v=0 J=1\sÆ0"
  72. readcolumn x 1
  73. readcolumn y 2
  74. closewindow vy.29siov0_jy
  75. graphlimits -9 45 0 0
  76. graphticks 5 10 20 20
  77. drawmybox nolabels perpendicular
  78. plothistogram
  79. % ----------------------
  80. datafile vy.28siov1_jy
  81. newGraphlocation "\\u28\\dSiO  v=1 J=1\sÆ0"
  82. readcolumn x 1
  83. readcolumn y 2
  84. closewindow vy.28siov1_jy
  85. graphlimits -9 45 0 0
  86. graphticks 5 10 1000 1000
  87. drawmybox nolabels perpendicular
  88. plothistogram
  89. % ---------------
  90.  
  91. % Set the frame to include all the graphs and label the axes
  92. graphframe gleft gright 1.25 gtop .25 +
  93. scale 1.5
  94. drawxlabel V\\dLSR\\u (km s\\u-1\\d) 
  95. drawylabel Flux Density (Jy)
  96. graphframe gleft gright 1.5 + gbottom gtop
  97. scale 2
  98. % Draw a big title across the top
  99. drawtitle SiO and H\\d2\\uO Masers Toward VY CMa
  100.  
  101. % Tidy up
  102. closewindow drawmybox
  103. closewindow newgraphlocation
  104.